home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.19950329-19950528 / 000200_news@columbia.edu_Fri Apr 21 03:27:37 1995.msg < prev    next >
Internet Message Format  |  2020-01-01  |  7KB
  1. Received: from apakabar.cc.columbia.edu by watsun.cc.columbia.edu with SMTP id AA11686
  2.   (5.65c+CU/IDA-1.4.4/HLK for <kermit.misc@watsun.cc.columbia.edu>); Sat, 22 Apr 1995 08:26:04 -0400
  3. Received: by apakabar.cc.columbia.edu id AA25475
  4.   (5.65c+CU/IDA-1.4.4/HLK for kermit.misc@watsun); Sat, 22 Apr 1995 08:26:02 -0400
  5. Path: news.columbia.edu!sol.ctr.columbia.edu!howland.reston.ans.net!spool.mu.edu!torn!news.uunet.ca!uunet.ca!torrie!gordon
  6. From: gordon@torrie.org (Gordon Torrie)
  7. Newsgroups: comp.protocols.kermit.misc
  8. Subject: Re: MS-Kermit <--> VMS Kermit ?
  9. Summary: You need a Kermit script. Here it is.
  10. Message-Id: <q9NV4c1w165w@torrie.org>
  11. Date: Thu, 20 Apr 95 23:27:37 -0400
  12. References: <95109.135856HDK@psuvm.psu.edu>
  13. Organization: Torrie Communication Services
  14. Lines: 185
  15. Apparently-To: kermit.misc@watsun.cc.columbia.edu
  16.  
  17. H. D. Knoble <HDK@psuvm.psu.edu> writes:
  18.  
  19. | In article <1995Apr19.065916.1@iccgcc.cle.ab.com>, principe@iccgcc.cle.ab.com
  20. | (Tony Principe) says:
  21. | 
  22. | >I am using MS Kermit 3.12 to transfer files between my PC and a VAX. The
  23. | >VAX Kermit is Kermit-32 version 3.3.128. Although ascii file transfers
  24. | >work ok, I haven't had any luck with transferring binary files in either
  25. | >direction. I'm not sure if the problem is on the PC end or the VMS end.
  26. | >Is there a particular setup that I need? I've set file type is binary on
  27. | >the sending Kermit.
  28. | 
  29. | The solution is to use C-Kermit for VMS.
  30.  
  31. No it is not. 
  32. While C-Kermit undoubtedly has advantages over Kermit-32, 
  33. Kermit-32 is not the problem. 
  34.  
  35. The solution is to create a Kermit script that 
  36. MS-Kermit then runs. I have done this and include it below.
  37. This script is currently used by several people at work to 
  38. successfully transfer files between MS-Kermit 3.12 and 
  39. Kermit-32 3.3.128.  These file transfers proceed correctly and 
  40. quickly even though the users are all connected to the VAX via 
  41. terminal servers (DECserver 100s). 
  42.  
  43. Note that you must have ANSI.SYS device driver loaded otherwise 
  44. the menus will not display properly. The script could be altered 
  45. if you really don't want to load ANSI.SYS.
  46.  
  47. ;  VAX/VMS Kermit-32 <-> IBM PC File Transfer setup
  48. ;  Requires MS-Kermit 3.00
  49. ;  Gordon Torrie  February 1990
  50. ;
  51. ;  July 10, 1991 - Changed the packet length from 94 to 300.
  52. ;                  Acquired Kermit-32 version 3.3.128 to replace
  53. ;                  version 3.3.117 on the VAX.  The new version 
  54. ;                  supports long packets so we will make use of them.
  55. ;
  56. ;  June 20, 1992 - Changed the packet length from 300 to 1000.
  57. ;
  58. ;  Sept 11, 1994 - Added Blocksize input for Fixed length files.
  59. ;                  (To upload BACKUP saveset files with the
  60. ;                  correct blocksize).
  61. ;
  62. ;  Note:  The VAX is assumed to be at the dollar prompt on entry
  63. ;         to this procedure.
  64. ;         This procedure returns the VAX to the dollar prompt on
  65. ;         exit.
  66. SET TAKE-ECHO OFF                 ; Don't echo this file
  67. SET INPUT ECHO OFF
  68. OUTPUT \26;                       ; Ensure we are at the dollar prompt
  69. :FTPMENU1
  70. ECHO {\27[2J           \27[4mVAX <--> PC File Transfer Setup\27[m\13\10}
  71. ECHO {         \27[1mA\27[m = Text files (Ordinary ASCII)\13\10}
  72. ECHO {         \27[1mB\27[m = Binary files (No translation)\13\10}
  73. ECHO {         \27[1mF\27[m = Fixed-length-record files\13}
  74. ECHO {             (Special type of binary file)\13\10}
  75. ECHO {         \27[1mX\27[m = Exit from this procedure\13\10
  76. :FTPSTART
  77. ASK \%z {Which type of file? \27[K}
  78. IF NOT DEFINED \%z GOTO FTPSTART
  79. SET INPUT CASE IGNORE             ; Ignore case of user-input
  80. IF EQUAL \%z A GOTO FTPASC
  81. IF EQUAL \%z B GOTO FTPBIN
  82. IF EQUAL \%z F GOTO FTPFIX
  83. IF EQUAL \%z X POP
  84. ECHO \27[1mInvalid response.\27[m  Choose one of \27[1\{59}5mA, B, F, \27[mor \27[1\{59}5mX\27[m.\13
  85. PAUSE 3                           ; Give user time to read
  86. ECHO \13\27[1A\27[K\27[2A         ; Erase the message
  87. GOTO FTPSTART
  88.  
  89. ;  For Text files
  90. :FTPASC
  91. ECHO {Wait one moment\13\10}
  92. OUTPUT KERMIT\13                  ; Start Kermit-32
  93. INPUT Kermit-32>                  ; Wait for it's prompt
  94. CLEAR                             ; Clear the input buffer
  95. OUTPUT {SET PARITY NONE\13}
  96. INPUT Kermit-32>
  97. CLEAR
  98. OUTPUT {SET FILE TYPE ASCII\13}
  99. INPUT Kermit-32>
  100. CLEAR
  101. GOTO SERVE
  102.  
  103. ;  For Binary Files
  104. :FTPBIN
  105. ECHO {Wait one moment\13\10}
  106. OUTPUT KERMIT\13                  ; Start Kermit-32
  107. INPUT Kermit-32>                  ; Wait for it's prompt
  108. CLEAR                             ; Clear the input buffer
  109. OUTPUT {SET PARITY SPACE\13}
  110. INPUT Kermit-32>
  111. CLEAR
  112. OUTPUT {SET FILE TYPE BINARY\13}
  113. INPUT Kermit-32>
  114. CLEAR
  115. SET PARITY SPACE
  116. SET FILE TYPE BINARY
  117. GOTO SERVE
  118.  
  119. ;  For files with Fixed Length Records such as executable images and
  120. ;  BACKUP savesets.
  121. :FTPFIX
  122. DEFINE \%z
  123. ASK \%z {Blocksize to use? (Default is 512) \27[K}
  124. IF NOT DEFINED \%z DEFINE \%z 512 ; Set default blocksize if none specified
  125. IF LLT {\%z} 9 GOTO FTPFIX_GO     ; Check that a numeric value was specified
  126. ECHO \27[1mInvalid response.\27[m  Blocksize must be numeric.\13
  127. PAUSE 3                           ; Give user time to read
  128. ECHO \13\27[1A\27[K\27[2A         ; Erase the message
  129. GOTO FTPFIX
  130.  
  131. :FTPFIX_GO
  132. ECHO {Wait one moment\13\10}
  133. OUTPUT KERMIT\13                  ; Start Kermit-32
  134. INPUT Kermit-32>                  ; Wait for it's prompt
  135. CLEAR                             ; Clear the input buffer
  136. OUTPUT {SET PARITY SPACE\13}
  137. INPUT Kermit-32>
  138. CLEAR
  139. OUTPUT {SET FILE TYPE FIXED\13}
  140. INPUT Kermit-32>
  141. CLEAR
  142. OUTPUT {SET FILE BLOCKSIZE \%z\13}
  143. INPUT Kermit-32>
  144. CLEAR
  145. SET PARITY SPACE
  146. SET FILE TYPE BINARY
  147.  
  148. :SERVE
  149. ;  Set parameters common to all file type transfers
  150. :FTPCOM
  151. OUTPUT {SET BLOCK_CHECK_TYPE 3\13}
  152. INPUT Kermit-32>
  153. CLEAR
  154. OUTPUT {SET RECEIVE PACKET_LENGTH 1000\13}
  155. INPUT Kermit-32>
  156. CLEAR
  157. OUTPUT {SET SEND PACKET_LENGTH 1000\13}
  158. INPUT Kermit-32>
  159. CLEAR
  160. OUTPUT {SET FILE NAMING NORMAL_FORM\13}
  161. INPUT Kermit-32>
  162. CLEAR
  163. OUTPUT {SET SERVER_TIMER 0\13}
  164. INPUT Kermit-32>
  165. CLEAR
  166. OUTPUT SERVER\13                  ; Put Kermit-32 in server mode
  167. CLEAR
  168. ;
  169. :FTPMENU2
  170. ECHO {\27[2J           \27[4mVAX <--> PC File Transfer Setup\27[m\13\10}
  171. ECHO {         \27[1mG\27[m = Get a file from the VAX\13\10}
  172. ECHO {         \27[1mS\27[m = Send a file to the VAX\13\10}
  173. ECHO {         \27[1mX\27[m = Exit to previous menu.\13\10}
  174. :FTPFUNC
  175. ASK \%z {Which function? \27[K}
  176. IF NOT DEFINED \%z GOTO FTPFUNC
  177. IF EQUAL \%z X GOTO FTPEXIT
  178. IF EQUAL \%z G GOTO FTPNAME
  179. IF EQUAL \%z S GOTO FTPNAME
  180. ECHO \27[1mInvalid response.\27[m  Choose one of \27[1\{59}5mG, S, \27[mor \27[1\{59}5mX\27[m.\13
  181. PAUSE 3                           ; Give user time to read
  182. ECHO \13\27[1A\27[K\27[2A         ; Erase the message
  183. GOTO FTPFUNC
  184. ;
  185. :FTPNAME
  186. ASK \%y {Name of file: }
  187. IF NOT DEFINED \%y GOTO FTPNAME
  188. IF EQUAL \%z G GET \%y
  189. IF EQUAL \%z S SEND \%y
  190. PAUSE 1                          ; Give user a chance to read
  191. ;                                  any error messages
  192. GOTO FTPMENU2
  193. ;
  194. :FTPEXIT
  195. FINISH                           ; Exit Kermit-32 Server mode
  196. OUTPUT EXIT\13                   ; Exit Kermit-32
  197. GOTO FTPMENU1                    ; and go to first menu
  198.  
  199.  
  200. --
  201. gordon@torrie.org                      Gord Torrie